<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<!--#include file="includes/cb_adovbs_sys.inc"-->
<!--#include file="includes/header_sys.asp"-->
<!--#include file="includes/generally_sys.asp"-->
<!--#include file="includes/translate.asp"-->
<!--#include file="includes/login.asp"-->

<%
'If Session("ses_iu") = 0 and Session("ses_ig") = 0 Then

'Sprache -----------------------------------------------------------------
Dim lng_id
lng_id = Request("lng")
If IsEmpty(lng_id) or IsNull(lng_id) or lng_id = 0 Then
	If IsEmpty(Session("ses_i_language") or Session("ses_i_language") = 0 or IsNull(Session("ses_i_language"))) Then
		lng_id = 1
	Else
		lng_id = Session("ses_i_language")
	End If
end if
Session("ses_i_language")=lng_id'0=keine auswahl 1=german 2=english
'--------------------------------------------------------------------------
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete_sys

Dim str_msg_01
Dim str_msg_02
Dim str_msg_03

'fc_i_login = 1
str_msg_01=fc_value_string(Session("ses_i_language"), "var_glob_txt_1004")
'old Con_Msg_error >> "Bad accesses!"

'fc_i_login = 2
str_msg_02=fc_value_string(Session("ses_i_language"), "var_main_m_32")
'Diese Login Information ist falsch oder nicht mehr gültig!

'fc_i_login = 3
str_msg_03=fc_value_string(Session("ses_i_language"), "var_glob_txt_1006")
'Kombination Benutzername und Passwort ist falsch. Versuchen sie es noch einmal.
'SYS
	Session("ses_title")="Growmetry"
	Session("ses_admin_log")="Admin"
	Session("ses_first_log")="EX-"
	Session("ses_i_first_log")=0'1=first login 0=kein first login
	Session("ses_i_log")=0'0=first login (key)
	Session("ses_Username_log")=0'eingabe login
	Session("ses_Password_log")=0'eingabe login
	
	Session("ses_str_User_id")="n/a"'die eingeloggte userid
	Session("ses_str_User_info_all")="n/a"'die eingeloggte userid + head org + sub org + trainer
	Session("ses_str_pw")="n/a"'das eigegebene pw
	Session("ses_str_User_name")="n/a"'der eingeloggte username
		
	Session("ses_path_sys")="http://localhost/www_zwick01/sys/main_menue.asp"
	Session("ses_i")=0'zählt mit wie oft mit einer session (browserfenster) angemeldet wurde
	
	Session("ses_iu")=0'user id
 	Session("ses_ig")=0'user group
	
	Session("str_logfree")="A1"'ob userid und pw ok sind - A1 >> nein - A0 >> ok
	
	Session("ses_str_master_id")="n/a"'die eindeutige vom system erstellt pw zb. lhQsnMNkBJIJ
	Session("ses_str_log_id")="n/a"'die eindeutige vom system erstellt userid zb. E0-YNRKBFKUEE und ohne <E0->

'email
'i_type
'2 - Head Org	
'3 - Org		
'4 - Trainer		
'5 - Athlete
	Session("ses_i_ebene")=0'von welcher ebene aus wird dsa email aufgerufen
	Session("ses_i_email_template")=0'vorlage für das emailtemplate
	Session("ses_user_email")=0'die mailadresse des eingelogten users
	Session("ses_mail_from")="office@growmetry.com" 'Absender 
	Session("ses_mail_to")="n/a"'emailadresse an wem das mail gesendet wird
	Session("ses_mail_to_02")="n/a"'falls an eine zweite emailadresse gesendet wird
	Session("ses_mail_subject")="n/a"
	Session("ses_mail_body")="n/a"
	Session("ses_mail_user_name")="n/a"'der name des user der das mail bekommen wird
	
'zeichenlaenge (min. laenge)
	Session("ses_sub_org_len")=3
	Session("ses_coach_len")=3
	Session("ses_userid_len")=4
	Session("ses_pw_len")=8
	Session("ses_master_id")=12'zeichenlänge die eindeutige vom system erstellt pw zb. lhQsnMNkBJIJ
	Session("ses_log_id")=10'zeichenlänge die eindeutige vom system erstellt userid zb. E0-YNRKBFKUEE und ohne <E0->

'schleifendurchlauf
	Session("ses_i_pw_loop")=9999'wie oft bei der pw vergabe vom system eine schleife durchlaufen werden soll

'tmp session für die id des forms das geöffnet werden soll
	'beim ersten login
	Session("ses_frm_first_register")=0
	'headorg
	Session("ses_id_tmp_01")=0
	Session("ses_frm_go_back_01")=0
	'division
	Session("ses_id_tmp_02")=0
	Session("ses_frm_go_back_02")=0
	'emailinfo
	Session("ses_i_email_template")=0
			

'0 >> normalbetrieb - 1 > Applikation im entwicklungsstatus - nur für testbetrieb - es werden wichtige var ausgegeben
	Session("ses_dev")=0

'das eindeutige pw für das erstmalige loggin
	Session("ses_str_master_id")=0

'entscheidet ob mit diverse admin all frm gearbeitet werden darf oder nur seine eigenen stammdaten zu sehen sind
	'Session("ses_i_stammdaten_look")=0
	
'id
	Session("ses_i_usergroup")=0
	Session("ses_i_admin")=1'zwick
	Session("ses_i_head_org")=0'id des head org
	Session("ses_i_org")=0'id des org
 	Session("ses_i_trainer")=0'id des trainers
	Session("ses_i_athlete")=0'id des athleten
	
	Session("ses_str_head_org")=0'string des head org
	Session("ses_str_org")=0'string des org
 	Session("ses_str_trainer")=0'string des trainers
	Session("ses_str_name_admin_head_org")=0'string des admin der head org
	Session("ses_str_name_admin_division")=0'string des admin der division
	Session("ses_str_name_admin_trainer")=0'string des admin der division


'id der letzten Auswahl... zb. wenn man ein Form verläßt und wieder zurück kommt wird das drop wiede so ausgewählt
'zb. trainer_admin_all.asp	
	Session("ses_i_last_select_01")=0
	Session("ses_i_last_select_02")=0

	
'isx = 0 >> keine neue stammdateneingabe übers login
'isx = 2 >> neue head org stammdateneingabe übers login
'isx = 3 >> neue org stammdateneingabe übers login
'isx = 4 >> neue trainer stammdateneingabe übers login
'isx = 5 >> neue athlete stammdateneingabe übers login	
	Session("ses_i_isx")=0

'i_type 1=Admin / 2=Head Org / 3=Org / 4=Trainer / 5=Athlete
'wenn es ein login ist wo der benutzer selber auswählen kann ob er sub-org oder ein trainer ist
'dann ist >>Session("ses_i_type")=0
	Session("ses_i_type")=0
	

'wenn es für den angelegt user eine dummy org (Non Commercial) darüber gibt >>> = 1	
	Session("ses_i_dummy_head_org")=0
	Session("ses_i_dummy_sub_org")=0


'killed alle sessions
'Session.Abandon

Dim str_title
str_title = Session("ses_title")

Dim str_emaillink
str_emaillink = Request("reg")

'falls über die admin overview geöffnet wird
Dim a1
a1 = Request("a1")
Dim a2
a2 = Request("a2")

'username und password von der eingabe
Dim str_user_id
Dim str_pw
str_user_id = Request("T1")
str_pw = Request("T2")

'Response.Write("A2: " & a2)

'2012 03 04 variable die die Function fc_value_string umschaltet (für dyn. Übersetzung)
'1= der Text wird angezeigt
'2= der Variablenname wird angezeigt
'x_translate_function
Dim sql_o1
Dim rst_01
sql_o1 = "SELECT lng_k_function FROM x_translate_function WHERE id_k_lng = '1'"

Set rst_01 = Server.CreateObject("ADODB.Recordset")
rst_01.Open sql_o1, objConn, adOpenStatic, adLockReadOnly   
    If Not rst_01.EOF Then
        Session("ses_i_fc_value_string")= rst_01.Fields("lng_k_function").Value
    End if
	rst_01.Close
set rst_01 = Nothing

'falls die log var schon leer ist
'iu = Request("iu")
'ig = Request("ig")
'2009 05 01 session log
Dim iu
Dim ig
iu = Session("ses_iu")
ig = Session("ses_ig")
If iu = "" or iu = 0 Then'die echte log var wird überprüft
	iu = 0
	ig = 0
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- ----------------------------------------------------------- -->
<!--       Beratung, Projektierung, Webdesign und Umsetzung      -->
<!--                     www.on-designs.com                      -->
<!-- Christian Freidl, Gärtnerweg 6, 8073 Neuseiersberg, Austria -->
<!-- ----------------------------------------------------------- -->
<!-- ----------------------------------------------------------- -->
<!--        Beratung, Projektierung, ASP-Programmierung          -->
<!--                     www.bribase.com                         -->
<!--                    Peter Brislinger,                        -->
<!--        Paul-Anton-Keller-Gasse 23, 8073 Feldkirchen         -->
<!-- ----------------------------------------------------------- -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%= str_title %></title>
<LINK REL="SHORTCUT ICON" HREF="http://www.growmetry.com/favicon.ico">
<meta name="author" content="Programming by Peter Brislinger, http://www.bribase.com | Web & Interfacedesign by Christian Freidl, http://www.on-designs.com">
<meta name="robots" content="noindex, nofollow">
<meta name="audience" content="all">
<style type="text/css">
<!--
A:link, A:visited, A:active {text-decoration: none; color:#333333}
A:hover {text-decoration: underline}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	SCROLLBAR-FACE-COLOR: #ffffff; 
	SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
	SCROLLBAR-SHADOW-COLOR: #cccccc;
	SCROLLBAR-3DLIGHT-COLOR: #cccccc;
	SCROLLBAR-ARROW-COLOR: #666666;
	SCROLLBAR-TRACK-COLOR: #ffffff;
	SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
-->
</style>
<link href="../css/growmetry.css" rel="stylesheet" type="text/css" />
<script language="JavaScript1.2" src="../main.js" type="text/javascript"></script></head>

<body>
 <div id="TipLayer" style="visibility:hidden;position:absolute;z-index:1000;top:-100;"></div>
 <script language="JavaScript1.2" src="../style.js" type="text/javascript"></script>  
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/filler.jpg">&nbsp;</td>
<td width="950" height="550" background="../App/images/standard/metry_title_de.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="43" height="550" rowspan="3">&nbsp;</td>
<td height="200" align="left" valign="top"><img src="images/standard/logfiller.gif" width="300" height="170" border="0" usemap="#Map" /><img src="../App/images/country/flag_germany.png" width="16" height="16" vspace="1" /><a href="http://www.growmetry.com"><img src="../App/images/country/flag_usa.png" alt="English version" width="16" height="16" hspace="10" vspace="1" border="0" /></a></td>
<td height="550" rowspan="3">&nbsp;</td>
</tr>
<tr>
<td height="150">

<form name="login" method="Post" action="index_trial.asp?lng=<%= lng_id %>">
<span class="txtsm">Benutzername</span><br />
<input name="T1" type="text" class="field" id="textfield" value="<%=a1%>" size="20" />
<br />
<span class="txtsm">Passwort</span><br />
<input name="T2" type="password" class="field" id="textfield2" value="<%=a2%>" size="20" />
<br />
<br />
<input name="btnSub_01" type="submit" id="button" value="   <%= fc_value_string(lng_id, "var_index_admin_04") %>   " />
&nbsp;&nbsp;<b><font face="Arial"><b><font face="Arial"><b><font face="Arial">
<input type="hidden" id="reg" name="reg" size="20" value="<%=str_emaillink%>" />
</font></b></font></b></font></b>
</form>

<% 
'20130511 Eingabeüberprüfung NEU
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'sprache
Session("ses_i_language") = 1'DE

'Response.Write("str_user_id: " & str_user_id & "<br>")
'Response.Write("str_pw: " & str_pw & "<br>")
Dim i_fc_login
Dim trancd

Dim btnSub_01
btnSub_01 = Request("btnSub_01") 

'Save - update
If Len(btnSub_01) > 0 Then
	trancd = "S"
else
	trancd = "A"
end if

'Response.Write("btnSub_01: " & btnSub_01 & "<br>")
'Response.Write("trancd: " & trancd & "<br>")

If trancd = "S" Then
  i_fc_login = fc_i_login(str_user_id, str_pw)
  '1=Anmeldung fehlgeschlagen
  '1000=erfolgreiches login
  Response.Write("i_login#1: " & i_fc_login & "<br>")
  response.End()
  
  'fc_i_login = 1000'erfolgreiches login
  
  if i_fc_login = 1000 Then
	  Response.Write ("<SCRIPT LANGUAGE='Javascript'>this.location.href='main_menu.asp';</SCRIPT>")
  end if
end if'trancd = "S"
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------
%>


</td>
</tr>
<tr>
<td height="200">&nbsp;</td>
</tr>
</table></td>
<td background="images/filler.jpg">&nbsp;</td>
</tr>
</table>

<map name="Map" id="Map">
  <area shape="rect" coords="-1,152,63,168" href="contact_us.asp" alt="Contact Us" />
</map>
</body>
<script type="text/javascript" language="JavaScript">
//meldungen
//i_fc_login=1 >> Anmeldung fehlgeschlagen
//i_fc_login=2 >> Diese Login Information ist falsch oder nicht mehr gültig!
//i_fc_login=3 >> 'Kombination Benutzername und Passwort ist falsch. Versuchen sie es noch einmal.

	if ("<%= i_fc_login %>"==1)
	{
		alert("<%= str_msg_01 %>");
		//location.href='athlete_admin_all.asp';
	} 

	if ("<%= i_fc_login %>"==2)
	{
		alert("<%= str_msg_02 %>");
		//location.href='athlete_admin_all.asp';
	}
		if ("<%= i_fc_login %>"==3)
	{
		alert("<%= str_msg_03 %>");
		//location.href='athlete_admin_all.asp';
	}

</script>
</html>
